home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / GoldED Tools / NextStep / arexx / uuencode.ged < prev   
Encoding:
Text File  |  1996-09-27  |  2.0 KB  |  73 lines
  1. /* $VER: 1.0, inspired by UUInsert (François Helsen & Lieven Lema)     */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  9. OPTIONS FAILAT 6                            /* ignore warnings         */
  10. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  11.  
  12. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  13.  
  14. 'QUERY CAT'
  15.  
  16. if (RESULT = "deutsch") then do
  17.  
  18.     ASKFILE      = "Datei, die uuencoded werden soll"
  19.     LHAFAILED    = "Konnte Datei nicht packen"
  20.     NOLHAFILE    = "Kein LhA-file, wird korrigiert"
  21.     ENCODEFAILED = "Codier-Fehler (UUEncode installiert ?)"
  22. end
  23. else do
  24.  
  25.     ASKFILE      = "File to UUEncode"
  26.     LHAFAILED    = "Couldn't compress file"
  27.     NOLHAFILE    = "No LhA-file, I shall fix this"
  28.     ENCODEFAILED = "Encode error (UUEncode installed ?)"
  29. end
  30.  
  31. 'REQUEST VAR=FILENAME FILE TITLE "' || ASKFILE || '"'
  32.  
  33. if (rc = 0) then do
  34.  
  35.     filepart = right(filename, length(filename) - max(lastpos("/", filename), lastpos(":", filename)))
  36.  
  37.     if upper(right(filename, 4)) ~= '.LHA' then do
  38.  
  39.         'REQUEST BODY "' || NOLHAFILE || '"'
  40.  
  41.         'RUN CMD="Lha -q a T:TEMPFILE.LHA ' || filename || '"'
  42.  
  43.         if exists("T:TEMPFILE.LHA") then
  44.             filename = "T:TEMPFILE.LHA"
  45.         else
  46.             'REQUEST STATUS="' || LHAFAILED || '"'
  47.     end
  48.  
  49.     'RUN OUTPUT="T:TEMPFILE.UU" CMD="UUEncode '  || filename || ' ' || filepart || '.lha"'
  50.  
  51.     if exists("T:TEMPFILE.UU") then do
  52.  
  53.         'OPEN INSERT T:TEMPFILE.UU'
  54.         'FILE DELETE NAME=T:TEMPFILE.UU FORCE'
  55.     end
  56.     else
  57.         'REQUEST PROBLEM="' || UUENCODEFAILED || '"'
  58.  
  59.     if exists("T:TEMPFILE.LHA") then
  60.         'FILE DELETE NAME=T:TEMPFILE.LHA FORCE'
  61. end
  62.  
  63. /* ---------------------------- END OF YOUR CODE --------------------- */
  64.  
  65. 'UNLOCK' /* VERY important: unlock GUI */
  66. EXIT
  67.  
  68. SYNTAX:
  69.  
  70. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  71. 'UNLOCK'
  72. EXIT
  73.